home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Icons.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  2.0 KB  |  90 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {
  4.     File:        Icons.p
  5.  
  6.     Contains:    Pascal interfaces for icon-handling routines
  7.  
  8.     Copyright:    © 1990 by Apple Computer, Inc., all rights reserved.
  9.  
  10. }
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13.     {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16.  
  17.     UNIT Icons;
  18.     INTERFACE
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29. CONST
  30.  
  31.     {    The following are icons for which there are both icon suites and SICNs. }
  32.  
  33.      genericDocumentIconResource        = -4000;
  34.      genericStationeryIconResource        = -3985;
  35.      genericEditionFileIconResource        = -3989;
  36.      genericApplicationIconResource        = -3996;
  37.      genericDeskAccessoryIconResource    = -3991;
  38.     
  39.      genericFolderIconResource            = -3999;
  40.      privateFolderIconResource            = -3994;
  41.     
  42.      floppyIconResource                    = -3998;
  43.      trashIconResource                    = -3993;
  44.     
  45.     { The following are icons for which there are SICNs only. }
  46.     
  47.      desktopIconResource                = -3992;
  48.      openFolderIconResource                = -3997;
  49.      genericHardDiskIconResource        = -3995;
  50.      genericFileServerIconResource        = -3972;
  51.      genericSuitcaseIconResource        = -3970;
  52.      genericMoverObjectIconResource        = -3969;
  53.     
  54.     { The following are icons for which there are icon suites only. }
  55.     
  56.      genericPreferencesIconResource        = -3971;
  57.      genericQueryDocumentIconResource    = -16506;
  58.      genericExtensionIconResource        = -16415;
  59.     
  60.      systemFolderIconResource            = -3983;    
  61.      appleMenuFolderIconResource        = -3982;
  62.      startupFolderIconResource            = -3981;
  63.      ownedFolderIconResource            = -3980;
  64.      dropFolderIconResource                = -3979;
  65.      sharedFolderIconResource            = -3978;
  66.      mountedFolderIconResource            = -3977;
  67.      controlPanelFolderIconResource        = -3976;
  68.      printMonitorFolderIconResource        = -3975;
  69.      preferencesFolderIconResource        = -3974;
  70.      extensionsFolderIconResource        = -3973;
  71.     
  72.      fullTrashIconResource                = -3984;
  73.     
  74.     large1BitMask        =    'ICN#';
  75.     large4BitData        =    'icl4';
  76.     large8BitData        =    'icl8';
  77.     small1BitMask        =    'ics#';
  78.     small4BitData        =    'ics4';
  79.     small8BitData        =    'ics8';
  80.     mini1BitMask        =    'sicn';
  81.     mini4BitData        =    'icm4';
  82.     mini8BitData        =    'icm8';
  83.  
  84.     { UsingIcons }
  85.  
  86.  
  87.     IMPLEMENTATION
  88. END.
  89.  
  90.